## [1] "After population data extraction, 2 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam"
| Country_Region | Deaths |
|---|---|
| United States | 233717 |
| Brazil | 161106 |
| India | 124315 |
| Mexico | 93228 |
| United Kingdom | 47742 |
| Italy | 39764 |
| France | 38370 |
| Spain | 38118 |
| Iran | 36579 |
| Peru | 34671 |
| Argentina | 32520 |
| Colombia | 32013 |
| Russia | 28996 |
| South Africa | 19585 |
| Chile | 14340 |
| Indonesia | 14259 |
| Ecuador | 12704 |
| Belgium | 12331 |
| Iraq | 11128 |
| Germany | 10949 |
| Country_Region | Weighted_Deaths |
|---|---|
| San Marino | 1249 |
| Belgium | 1069 |
| Peru | 1063 |
| Andorra | 967 |
| Spain | 805 |
| Brazil | 759 |
| Bolivia | 753 |
| Chile | 737 |
| Mexico | 730 |
| Ecuador | 722 |
| Argentina | 717 |
| United Kingdom | 715 |
| United States | 707 |
| Moldova | 701 |
| Italy | 662 |
| Panama | 641 |
| Colombia | 636 |
| Sweden | 578 |
| France | 571 |
| Montenegro | 524 |
| Country_Region | Weighted_Confirmed |
|---|---|
| San Marino | 295.6 |
| Belgium | 405.7 |
| Peru | 279.5 |
| Andorra | 650.6 |
| Spain | 271.4 |
| Brazil | 263.3 |
| Bolivia | 122.1 |
| Chile | 264.7 |
| Mexico | 73.8 |
| Ecuador | 97.4 |
| Argentina | 265.8 |
| United Kingdom | 164.5 |
| United States | 286.9 |
| Moldova | 297.3 |
| Italy | 131.7 |
| Panama | 317.9 |
| Colombia | 220.0 |
| Sweden | 132.9 |
| France | 230.5 |
| Montenegro | 335.3 |
| Country_Region | Increase_Weighted_Deaths |
|---|---|
| Spain | 34.29 |
| Czech Republic | 20.56 |
| France | 18.30 |
| Belgium | 17.76 |
| Slovenia | 13.83 |
| Bosnia and Herzegovina | 12.30 |
| Armenia | 11.81 |
| North Macedonia | 10.60 |
| Argentina | 10.31 |
| Switzerland | 9.73 |
| Poland | 9.73 |
| Hungary | 9.21 |
| Bulgaria | 7.77 |
| Romania | 7.56 |
| United Kingdom | 7.37 |
| Belize | 7.16 |
| Montenegro | 6.43 |
| Croatia | 6.41 |
| Luxembourg | 6.39 |
| Netherlands | 6.05 |
| Country_Region | Increase_Weighted_Confirmed |
|---|---|
| France | 19.14 |
| Andorra | 17.41 |
| Czech Republic | 14.70 |
| Montenegro | 14.05 |
| Belgium | 13.58 |
| Switzerland | 11.67 |
| Luxembourg | 11.34 |
| Slovenia | 9.66 |
| Armenia | 8.01 |
| Austria | 7.74 |
| Portugal | 7.28 |
| Liechtenstein | 7.23 |
| Poland | 6.44 |
| Georgia | 6.17 |
| Croatia | 6.11 |
| Slovakia | 5.89 |
| Bulgaria | 5.83 |
| North Macedonia | 5.73 |
| Bosnia and Herzegovina | 5.33 |
| Spain | 5.29 |
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium","Spain","Greece","Sweden","Norway","Finland","United States")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Deaths")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Weighted_Deaths")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p